##########################################################################
# Plot Figure 2

par(mar=c(4,3,2,1), mfrow=c(1,1), mgp=c(2, .5, 0), oma=c(1,1,1,1), cex.lab=.8, cex.axis=.8)

plot(av.ACME, 1,  axes=F,  cex=1.5, ylab="", xlim=c(-3,3), ylim=c(-.5, 1.5), main="", pch=17, xlab="Causal Effect of Permitting a Demonstration on Feeling Thermometer Scores")
grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, col="grey")
axis(1, col="white")
axis(3, col="white")

segments(av.ACME-1.96*av.ACME.se, 1, av.ACME+1.96*av.ACME.se, 1)
text(-1.5, 1, "ACME", pos=2, cex=.8)

points(av.ANDE, 0, pch=17, cex=1.5)
segments(av.ANDE-1.96*av.ANDE.se, 0, av.ANDE+1.96*av.ANDE.se, 0)
text(-1.5, 0, "ANDE", pos=2, cex=.8)
